0 REM << CD36-6 >>
1 REM COMMODARES PROBLEM #32-2:
2 PRINT"[147]           TEXT SEARCH"
3 REM SOLUTION BY
4 REM    JASON SIMPSON
5 REM
10 INPUT"SEARCH STRING";A$
20 A=LEN(A$)
30 OPEN1,8,0,"TESTFILE,S,R"
40 IF ST THEN CLOSE1 : END
50 INPUT#1,B$
60 B=LEN(B$)
70 FOR Y=1 TO B
80 IF MID$(B$,Y,A)=A$ THEN PRINT B$: Y=B
90 NEXT Y
100 GOTO 40